From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 9 Nov 1996 09:06:52 +0000 (+0000)
Subject: (list-diary-entries): Reread the diary file if it has changed.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~82526
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ca67b44e66e358f3d3324e61cb16c24a7c5097ea;p=emacs.git

(list-diary-entries): Reread the diary file if it has changed.
---

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 175568264a3..875cc2ae840 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -239,9 +239,11 @@ These hooks have the following distinct roles:
         (message "Preparing diary...")
         (save-excursion
           (let ((diary-buffer (find-buffer-visiting d-file)))
-            (set-buffer (if diary-buffer
-                            diary-buffer
-                         (find-file-noselect d-file t))))
+	    (if (not diary-buffer)
+		(set-buffer (find-file-noselect d-file t))
+	      (set-buffer diary-buffer)
+	      (or (verify-visited-file-modtime diary-buffer)
+		  (revert-buffer t t))))
           (setq selective-display t)
           (setq selective-display-ellipses nil)
           (setq old-diary-syntax-table (syntax-table))